perm filename LSPTTY.SAP[MAC,LSP]1 blob sn#555022 filedate 1981-01-08 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	IDAS.424
C00013 ENDMK
C⊗;
IDAS.424
****** MACLISP ****** LISP INTERPRETER AND SYSTEM *************
ASSEMBLING MACLISP -- INITIAL SWITCH VALUES (*=EXPERIMENTAL):
  ITS=0
  TOPS10=0
  TOPS20=0
  SAIL=0
* TENEX=0
* CMU=0
  ML=0
  BIGNUM=1
  OBTSIZ=777
  JOBQIO=1
  HNKLOG=11
  USELESS=1
* DBFLAG=0
* CXFLAG=0
* NARITH=0
* SFA=1
REDEFINITIONS:
TTY: .INSRTed, end input with ↑C
ML==1



SAIL==1?PAGING==1?SFA==1



	IFE ITS => JOBQIO==:0
	IFG SAIL*<6-NIOBFS> => NIOBFS==:6
MACLISP VERSION 2062 ASSEMBLED ON ITS AT MC
FLUSHING ITS SYMBOL DEFINITIONS
    ==> INSERTED:  ITSDFS 4
FLUSHING ITS BIT DEFINITIONS
    ==> INSERTED:  BITS 68
MAKING SAIL SYMBOL DEFINITIONS
    ==> INSERTED:  SAIDFS 15
MAKING SAIL BIT DEFINITIONS
    ==> INSERTED:  DECBTS 232
    ==> INSERTED:  DEFNS 230
    ==> INSERTED:  MACS 75
SHARP1+1	4407	 2.    37-022	###### HOW TO SHARE WITH "PURQIO" FILE?
	***** FIVE "ZERO" (LOW IMPURE) SEGMENTS
	***** TWO SEGMENT TABLE SEGMENTS
    ==> INSERTED:  ERROR 147
	P0:  3024	[ERROR HANDLERS AND MESSAGES]
    ==> INSERTED:  STATUS 231
STBS+122	24726	 0.   129-006	CURSOR	Multiply defined
	READTABLE LENGTH = 1010
	P1:  15457	[TOPLEVEL, COMMON, AND RANDOM STUFF]
	P2:  3356	[PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC]
    ==> INSERTED:  PRINT 291
	P3:  1350	[UTAPE, LAP, AND AGGLOMERATED SUBRS]
    ==> INSERTED:  ULAP 145
	P4:  2243	[ARITHMETIC SUBROUTINES]
    ==> INSERTED:  ARITH 90
	P5:  1751	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 18
	P6:  2635	[EVAL, APPLY, STUFF OPEN-CODED BY COMPLR]
	P7:  2201	[GARBAGE COLLECTOR]
	P10:  1554	[MEMORY MANAGEMENT STUFF]
    ==> INSERTED:  GCBIB 252
	P11:  3416	[HIRSUTE READER, MAKNAM, ETC.]
    ==> INSERTED:  READER 243
	P12:  1721	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 86
	P13:  2172	[FASLOAD]
    ==> INSERTED:  FASLOA 251
MC:QIO 690 L;
FASLP1+25	61431	 3.    19-178	######
	###### RESTORE REF DATE FOR SAIL PROBEF?
OPEN9D+14	62371	 3.    32-059	###### IMAGE TTY OUTPUT?
$LSTNS+3	62601	 3.    35-034	###### REALLY OUGHT TO BE SMARTER
TTYMO2+5	63506	 3.    48-028	###### SAIL TTYMOR?
	P14:  5206	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 690
	P15:  3622	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 533
	***** 62 (OCTAL) SYSTEM SEGMENTS
	***** ONE SAR SEGMENT [756 UNUSED WORDS]
	***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS]
MC:STRUCT 593 L;
		77220	 3.    22-065	Q%PRIN	Multiply defined
	P16:  22462	[SYSTEM ATOMS AND STUFF]
	***** ONE VALUE CELL SEGMENT [622 UNUSED WORDS]
	***** TWO SYMBOL HEADER SEGMENTS [502 UNUSED WORDS]
	***** THREE PURE SYMBOL BLOCK SEGMENTS
	HIGHEST NLISP INUM=1012
	LOWEST NLISP INUM=-413
	***** FOUR PURE FIXNUM SEGMENTS
	***** FIVE PURE LIST SEGMENTS [316 UNUSED WORDS]
	***** ZERO PURE FLONUM SEGMENTS
	***** TWO IMPURE LIST SEGMENTS [343 UNUSED WORDS]
	***** ONE IMPURE FIXNUM SEGMENT [733 UNUSED WORDS]
	***** ONE IMPURE FLONUM SEGMENT [777 UNUSED WORDS]
	***** ONE BIGNUM SEGMENT [773 UNUSED WORDS]
	TIME TO MAKE INITIAL STRUCT, PASS 1 = 100 SECS
    ==> INSERTED:  STRUCT 593
	***** ONE BIT BLOCK SEGMENT
    ==> INSERTED:  ALLOC 264

***** MACLISP ****** LISP INTERPRETER AND SYSTEM *************

INITIAL PURTBL MEMORY LAYOUT
[0=NXM, 1=IMPURE, 2=PURE, $=BPS/PDL/SCRATCH]
11111112 22222222   22222222 22222222
22222222 22222222   22222222 21100111
22222222 22221111   11$00000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   00000000 00000000
00000000 00000000   000$0$0$ 00$00$
SHARP1+1	4407	 2.    37-022	###### HOW TO SHARE WITH "PURQIO" FILE?
	***** FIVE "ZERO" (LOW IMPURE) SEGMENTS
	***** TWO SEGMENT TABLE SEGMENTS
MC:ERROR 147 L;
ALCK0+2		10531	 1.    19-036	ALARMC	Undefined
    ==> INSERTED:  ERROR 147
	P0:  3024	[ERROR HANDLERS AND MESSAGES]
    ==> INSERTED:  STATUS 231
MC:*LISP 062 L;
STBS+122	24726	 0.   129-006	CURSOR	Multiply defined
	READTABLE LENGTH = 1010
	P1:  15457	[TOPLEVEL, COMMON, AND RANDOM STUFF]
	P2:  3356	[PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC]
    ==> INSERTED:  PRINT 291
	P3:  1350	[UTAPE, LAP, AND AGGLOMERATED SUBRS]
    ==> INSERTED:  ULAP 145
	P4:  2243	[ARITHMETIC SUBROUTINES]
    ==> INSERTED:  ARITH 90
	P5:  1751	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 18
	P6:  2635	[EVAL, APPLY, STUFF OPEN-CODED BY COMPLR]
	P7:  2201	[GARBAGE COLLECTOR]
	P10:  1554	[MEMORY MANAGEMENT STUFF]
    ==> INSERTED:  GCBIB 252
	P11:  3416	[HIRSUTE READER, MAKNAM, ETC.]
    ==> INSERTED:  READER 243
	P12:  1721	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 86
	P13:  2172	[FASLOAD]
    ==> INSERTED:  FASLOA 251
MC:QIO 690 L;
FASLP1+25	61431	 3.    19-178	######
	###### RESTORE REF DATE FOR SAIL PROBEF?
OPEN9D+14	62371	 3.    32-059	###### IMAGE TTY OUTPUT?
$LSTNS+3	62601	 3.    35-034	###### REALLY OUGHT TO BE SMARTER
TTYMO2+5	63506	 3.    48-028	###### SAIL TTYMOR?
	P14:  5206	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 690
MC:*LISP 062 L;
SAIDSP+12	64631	 0.   174-166	CLOCKI	Undefined
	P15:  3622	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 533
	***** 62 (OCTAL) SYSTEM SEGMENTS
	***** ONE SAR SEGMENT [756 UNUSED WORDS]
	***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS]
MC:STRUCT 593 L;
		77217	 3.    22-064	Q%PRIN	Multiply defined
		77220	 3.    22-065	Q%PRIN	Multiply defined
	P16:  22462	[SYSTEM ATOMS AND STUFF]
	***** ONE VALUE CELL SEGMENT [622 UNUSED WORDS]
	***** TWO SYMBOL HEADER SEGMENTS [502 UNUSED WORDS]
	***** THREE PURE SYMBOL BLOCK SEGMENTS
	HIGHEST NLISP INUM=1012
	LOWEST NLISP INUM=-413
	***** FOUR PURE FIXNUM SEGMENTS
***** FIVE PURE LIST SEGMENTS [316 UNUSED WORDS]
	***** ZERO PURE FLONUM SEGMENTS
	***** TWO IMPURE LIST SEGMENTS [343 UNUSED WORDS]
	***** ONE IMPURE FIXNUM SEGMENT [733 UNUSED WORDS]
	***** ONE IMPURE FLONUM SEGMENT [777 UNUSED WORDS]
	***** ONE BIGNUM SEGMENT [773 UNUSED WORDS]
	TIME TO MAKE INITIAL STRUCT, PASS 2 = 73 SECS
    ==> INSERTED:  STRUCT 593
	***** ONE BIT BLOCK SEGMENT
    ==> INSERTED:  ALLOC 264

Constants area inclusive
From	To
4410	4412
11161	12027
27133	27506
32753	33064
34367	34434
36601	36677
40637	40650
43406	43505
45601	45706
47400	47462
53032	53100
54702	55021
57141	57213
64045	64421
70101	70243
125736	126075
Run time = 5:05.90
10180 Symbols including initial ones (63% used)
β